0 PRINT"[147]     *** LOADING/CHECKING DATA ***"
1 DIMEA(20):C1=0:DL=100:IN=1:LE=64:Q=8:AD=12288:DEFFNA(Z)=DL+(X*IN)
2 FORX=0TOLE:CS=0:FORC=0TOQ-1:READD:CS=CS+D
3 IFD<256THEN6
4 IFC=Q-1THENPRINT"[147]  DATA QUANTITY ERROR IN LINE:-"FNA(Z):STOP
5 EA(C1)=FNA(Z):C1=C1+1
6 POKEAD+X*Q+C,D:NEXT
7 READD:IFD<>CSTHENEA(C1)=FNA(Z):C1=C1+1
8 NEXT
9 X=C1:IFC1=0THENPRINT"[147]  DATA IS ERROR FREE":GOTO12
10 PRINT"[147]DATA ERROR LIST"
11 FORC=0TOX:PRINTEA(C)"*";:NEXT
12 REM
13 REM
14 END
100 DATA15,255,240,63,255,240,255,255,1578
101 DATA240,170,170,240,170,170,240,170,1570
102 DATA106,240,170,106,240,169,106,240,1377
103 DATA169,106,240,169,106,240,169,106,1305
104 DATA240,169,106,240,169,106,240,169,1439
105 DATA106,240,169,106,240,169,106,240,1376
106 DATA169,106,192,170,170,192,170,170,1339
107 DATA0,0,0,0,0,0,0,0,0
108 DATA15,255,240,63,255,240,255,255,1578
109 DATA240,170,170,240,170,170,240,165,1565
110 DATA90,240,149,86,240,154,150,240,1349
111 DATA170,166,240,170,150,240,165,86,1387
112 DATA240,149,90,240,150,170,240,154,1433
113 DATA166,240,154,166,240,149,86,240,1441
114 DATA149,86,192,170,170,192,170,170,1299
115 DATA0,0,0,0,0,0,0,0,0
116 DATA15,255,240,63,255,240,255,255,1578
117 DATA240,170,170,240,170,170,240,149,1549
118 DATA86,240,149,86,240,154,150,240,1345
119 DATA170,90,240,169,106,240,169,90,1274
120 DATA240,170,150,240,170,166,240,154,1530
121 DATA166,240,150,150,240,149,86,240,1421
122 DATA165,90,192,170,170,192,170,170,1319
123 DATA0,0,0,0,0,0,0,0,0
124 DATA15,255,240,63,255,240,255,255,1578
125 DATA240,170,170,240,170,170,240,170,1570
126 DATA90,240,169,90,240,169,90,240,1328
127 DATA165,154,240,165,154,240,150,154,1422
128 DATA240,149,86,240,149,86,240,170,1360
129 DATA154,240,170,154,240,170,86,240,1454
130 DATA170,86,192,170,170,192,170,170,1320
131 DATA0,0,0,0,0,0,0,0,0
132 DATA15,255,240,63,255,240,255,255,1578
133 DATA240,170,170,240,170,170,240,149,1549
134 DATA86,240,149,86,240,154,150,240,1345
135 DATA154,170,240,149,86,240,149,86,1274
136 DATA240,170,150,240,170,166,240,150,1526
137 DATA166,240,150,150,240,149,86,240,1421
138 DATA149,86,192,170,170,192,170,170,1299
139 DATA0,0,0,0,0,0,0,0,0
140 DATA15,255,240,63,255,240,255,255,1578
141 DATA240,170,170,240,170,170,240,165,1565
142 DATA90,240,149,90,240,150,150,240,1349
143 DATA154,150,240,154,170,240,149,90,1347
144 DATA240,149,86,240,150,150,240,154,1409
145 DATA166,240,150,150,240,149,86,240,1421
146 DATA165,90,192,170,170,192,170,170,1319
147 DATA0,0,0,0,0,0,0,0,0
148 DATA15,255,240,63,255,240,255,255,1578
149 DATA240,170,170,240,170,170,240,149,1549
150 DATA86,240,149,86,240,150,150,240,1341
151 DATA170,154,240,170,90,240,170,90,1324
152 DATA240,170,90,240,170,90,240,169,1409
153 DATA106,240,169,106,240,169,106,240,1376
154 DATA169,106,192,170,170,192,170,170,1339
155 DATA0,0,0,0,0,0,0,255,255
156 DATA15,255,240,63,255,240,255,255,1578
157 DATA240,170,170,240,170,170,240,165,1565
158 DATA90,240,149,86,240,150,150,240,1345
159 DATA154,166,240,150,150,240,165,90,1355
160 DATA240,165,90,240,150,150,240,154,1429
161 DATA166,240,150,150,240,149,86,240,1421
162 DATA165,90,192,170,170,192,170,170,1319
163 DATA0,0,0,0,0,0,0,0,0
164 DATA0,0,0,0,0,0,0,0,0